Software 2000/Software 2000 Volume 1 (Disc 1 of 2).iso/education/e101.dms/e101.adf/Geobase/GeoBase.AMOS/GeoBase.amosSourceCode

AMOS Source Code | 1978-10-19 | 6.5 KB | 320 lines

'
'
'   GEOBASE - MAIN AMOS FILE
'
'   BY TONY KINGSMILL DECEMBER 1992 / JANUARY 1993
'
'   THIS PROGRAM IS FREEWARE
'
COUNTRIES=16
C=COUNTRIES
O=0
Dim NAME$(C)
Dim FULLNAME$(C)
Dim CONT$(C)
Dim AREA$(C)
Dim REL$(C)
Dim LAN$(C)
Dim CAP$(C)
Dim PRIM$(C)
Dim HIGH$(C)
Dim MOUNT$(C)
Dim RIV$(C)
Writing 2
Screen Open 0,320,255,16,Lowres
Paper 0 : Cls
Flash Off
Change Mouse 2
Screen Open 1,640,255,8,Hires
Paper 0 : Cls
Screen 0
Screen To Front 0
Curs Off
Load Iff "worldgeo:geobase/mainscreen"
Open In 1,"worldgeo:geobase/Geobase.DAT"
For A=1 To C
Input #1,NAME$(A)
Input #1,FULLNAME$(A)
Input #1,CONT$(A)
Input #1,AREA$(A)
Input #1,REL$(A)
Input #1,LAN$(A)
Input #1,CAP$(A)
Input #1,PRIM$(A)
Input #1,HIGH$(A)
Input #1,MOUNT$(A)
Input #1,RIV$(A)
Next A
Close 1
Wind Open 1,30,95,35,19,1
TITLE:
Window 1
Clw
Pen 5
Print "GeoBase"
Pen 1
Print
Print "By Tony Kingsmill - Dec 1992"
Print
Print "While every effort has been"
Print "to make this program accurate,"
Print "I cannot be held responsible"
Print "for incorrect data."
Print
Print "This program is Freeware.."
Print "PLEASE COPY ME!"
Print
Pen 5
Print "Press any key to continue.."
Curs Off
Wait Key
Clw
Pen 1
Print "Unfortunately I haven't had"
Print "time up to now to enter"
Print "information for all countries."
Print "Furthermore, the recent changes"
Print "in the former Soviet Union"
Print "means I currently need new"
Print "information. However, I shall"
Print "be updating this program from"
Print "time to time and you can"
Print "receive an updated copy by"
Print "sending me a disk and stamp."
Pen 2
Print "Write to: Tony Kingsmill, 2O2"
Print "Park Street Lane, Park Street,"
Print "St.Albans, Herts AL2 2AQ. (UK)"
Print
Pen 5
Print "Press any key to continue.."
Curs Off
Wait Key
Clw
Pen 1
Print "The aim of this program is to"
Print "provide geographical infor -"
Print "mation about countries of the"
Print "world.Most of the information"
Print "refers to physical aspects"
Print "(eg: rivers,mountains) rather"
Print "than human aspects, as these"
Print "frequently become out of date."
Print "GeoBase will allow you to"
Print "display information either on"
Print "screen or printer (you may"
Print "need to copy your printer"
Print "driver to the disk)."
Print
Pen 5
Print "Press any key to continue.."
Curs Off
Wait Key
Clw
Pen 1
Print "Also, be aware of variations of"
Print "names, which may confuse"
Print "Geobase. For example, to gain"
Print "information about the United"
Print "States, you need to enter USA."
Print "For the Netherlands, you should"
Print "enter Holland. To make life a"
Print "little easier, GeoBase ignores"
Print "small and large letters so, for"
Print "instance, bRaZiL would be okay."
Print
Pen 5
Print "Press any key to continue.."
Curs Off
Wait Key
Clw
Pen 1
Print "At the prompt for a country,"
Print "simply type in the name of the"
Print "country you wish information"
Print "for. As well as country names,"
Print "you can enter one of three"
Print "commands.. LIST : gives you a"
Print "'shopping list' of all the"
Print "countries available to you."
Print "PRINTER : All data will be sent"
Print "to printer."
Print "SCREEN : All data is sent to"
Print "screen. All data goes to screen"
Print "as default, when you first load"
Print "the program."
Print
Pen 5
Print "Press any key to continue.."
Curs Off
Wait Key
'
'
MAIN:
Window 1
Clw
FLAG=0
Pen 1
Print
Print "Please enter your country or"
Print "command..."
Print
Input P$
P$=Upper$(P$)
If P$="PRINTER"
     O=1
     Print "Output will go to printer."
     Wait 45
     FLAG=1
   End If
If P$="SCREEN"
     O=0
     Print "Output will go to screen."
     Wait 45
     FLAG=1
   End If
If P$="HELP"
     Print
     Print "Commands:"
     Print "SCREEN: select screen."
     Print "PRINTER: select printer."
     Print "HELP: This page."
     Print "ABOUT: More info."
     Print "LIST: Show countries."
     Print "Entering a country name will"
     Print "show information,"
     Print "providing country is available."
     Print
     Centre "<<press a key>>"
     Curs Off : Wait Key
     FLAG=1
   End If
If P$="ABOUT"
    FLAG=1
    Goto TITLE
   End If
If P$="LIST"
    Gosub LIST
    FLAG=1
   End If
For E=1 To C
  If P$=NAME$(E)
    FLAG=1
    If O=0
      Gosub SCRDISPLAY
     End If
    If O=1
      Gosub PRTDISPLAY
     End If
   End If
Next E
If FLAG=0
  Print : Print "Sorry, either you entry"
  Print "was spelt the wrong way, or"
  Print "the data is not available on"
  Print "your selected country."
  Print
  Centre "<<press any key>>"
  Curs Off : Wait Key
End If
Goto MAIN
'
'
LIST:
Screen 1
Screen To Front 1
Cls
Pen 1
Print "List of Countries available:"
Print
T=0
For R=1 To C
Inc T
Print NAME$(R)
If T=20
  Wait Key
  T=0
 End If
Next R
Print : Print "Press any key to return to main screen"
Wait Key
Screen 0
Screen To Front 0
Return
'
SCRDISPLAY:
Screen 1
Screen To Front 1
Cls
Pen 2
Print
Print NAME$(E)
Print "--------------------------------------------------"
Print "OFFICIAL NAME:"
Print FULLNAME$(E)
Print : Print "WORLD REGION:" : Print CONT$(E) : Print : Print "AREA:" : Print AREA$(E)
Print : Print "PRIMARY RELIGIONS:" : Print REL$(E) : Print
Print
Pen 1 : Locate 1,15 : Centre "Press a key for more"
Pen 2
Curs Off
Wait Key
Locate 1,15 : Centre "                    "
Print
Print "MAIN LANGUAGES:" : Print LAN$(E) : Print
Print "CAPITAL CITY" : Print CAP$(E) : Print
Print "PRIMARY CITIES" : Print PRIM$(E) : Print
Print "HIGHEST POINT" : Print HIGH$(E) : Print
Print "MAIN MOUNTAIN RANGES:" : Print MOUNT$(E)
Print : Print "PRIMARY RIVERS" : Print RIV$(E) : Print
Pen 1
Centre "<< Press any key to return to main screen >>"
Curs Off
Wait Key
Screen 0
Screen To Front 0
Return
'
'
PRTDISPLAY:
Print
Print "Info. now going to printer.."
Lprint "-------------------------------------------------"
Lprint "GeoBase v1.0  -  Geographical Information Program"
Lprint "-------------------------------------------------"
Lprint
Lprint NAME$(E)
Lprint "-------------------------------------------------"
Lprint "Official Name:"
Lprint FULLNAME$(E)
Lprint
Lprint "World Region:"
Lprint CONT$(E)
Lprint
Lprint "Area:"
Lprint AREA$(E)
Lprint
Lprint "Primary Religions:"
Lprint REL$(E)
Lprint
Lprint "Main Languages:"
Lprint LAN$(E)
Lprint
Lprint "Capital City:"
Lprint CAP$(E)
Lprint
Lprint "Primary Cities:"
Lprint PRIM$(E)
Lprint
Lprint "Highest Point:"
Lprint HIGH$(E)
Lprint
Lprint "Main Mountain Ranges:"
Lprint MOUNT$(E)
Lprint
Lprint "Primary Rivers:"
Lprint RIV$(E)
Lprint
Lprint "-------------------------------------------------"
Lprint
Return